home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / Moof / Goodies / MPW Goodies / MPW Goodies⁄DTS / SetProject < prev    next >
Text File  |  2022-08-05  |  437b  |  20 lines
  1. #
  2. # SetProject        Andrew Shebanow        3/14/89
  3. #
  4. #    Script to set current project.
  5. #
  6. #    Usage: SetProject ProjName
  7. #
  8.  
  9. Project "{ProjName}"
  10.  
  11. # Extract the CheckOutDir and change directory to it
  12. Set ChkOutDir "`CheckOutDir`"
  13. ( Evaluate "{ChkOutDir}" =~ /(∂')*CheckOutDir -project ≈∂∫(∂')* (∂')*(≈:)®1(∂')*/ ) ∑ Dev:Null
  14. Directory "{®1}"
  15.  
  16. # Execute project init script if present
  17. If "`Exists ProjInit`" != ""
  18.     Execute ProjInit ∑∑ "{WorkSheet}"
  19. End
  20.